home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / Service / BACKUP1 < prev    next >
Text File  |  2000-01-01  |  1KB  |  38 lines

  1. setenv .val2 "Ueberprüfe Backup..."
  2. setenv .apcdpic1 31
  3. setenv .apcdpic2 32
  4. gui vorher:sub2.gc
  5. gui vorher:change.gc
  6. if exists sys:back
  7. Echo >env:afuturetxt "Text *"Backup gefunden!*"*nText *"Wollen sie die gesicherten Daten wiederherstellen?*"*n"
  8. run >nil: play16 >nil: sounds/`random 2`
  9. set wollen `selector req.sel "Ja, jetzt kopieren!" "Nein, weitermachen!"`
  10. if $wollen eq 1
  11. cd sys:back
  12. copy #? all TO SYS: quiet ;Das _SOLLTE_ eigentlich funktionieren....
  13. cd vorher:
  14. EXECUTE ENDE
  15. QUIT ;Zur Sicherheit....
  16. endif
  17. endif
  18. setenv .val 50
  19. gui vorher:sub.gc
  20. echo >env:afuturetxt "Text *"Wollen sie, daß in*"*nText *"SYS:Back/*"*nText *"Backups der Dateien erzeugt werden,*"*nText *"die evtl. kopiert werden?*"*n"
  21. run >nil: play16 >nil: sounds/`random 2`
  22. set backup `selector req.sel Ja Nein`
  23.  
  24. if $backup eq 1
  25. makedir sys:Back >NIL:
  26. set backy 0
  27. lab backfor
  28. if $backy eq $anzahl
  29. skip backnext
  30. endif
  31. set backy `eval $backy + 1`
  32. MAKEDIR sys:back/`getenv var$backy` >NIL:
  33. skip back backfor
  34. lab backnext
  35. endif
  36. setenv .val 100
  37. gui vorher:sub.gc
  38. wait 1 secs